﻿Imports System.Data.SqlClient
Imports System.Configuration
Public Class frm_xemlichhoc
    Private Sub cmd_xem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_xem.Click
        If txt_xemlop.Text = "" Then
            MsgBox("Vui lòng nhập mã lớp")
            Exit Sub
        End If
        Dim cmd As New SqlCommand("sp_LichHoc", conn)
        cmd.CommandType = CommandType.StoredProcedure

        Dim da As New SqlDataAdapter(cmd)
        Dim tb As New DataTable
        da.Fill(tb)

        dgv_lichhoc.DataSource = tb
        tb.DefaultView.RowFilter = String.Format("MaLop = '{0}'", txt_xemlop.Text)
        If dgv_lichhoc.RowCount = 0 Then
            MsgBox("Lớp không tồn tại hoặc chưa có lịch học")
            txt_xemlop.Text = ""
            dgv_lichhoc.Columns.Clear()
            Exit Sub
        End If
    End Sub
End Class